home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Tools / Alpha 6.51b13 ƒ / Tcl / UserCode / setMailMode.tcl < prev    next >
Text File  |  1996-08-15  |  1KB  |  42 lines
  1. # FILE: setMailMode.tcl
  2. #
  3. # LAST UPDATE: 01/07/93 8:42:39 AM
  4. #
  5. # This file contains the following TCL procedure(s):
  6. #
  7. #    setMailMode -- used with changeMode & editing UNIX mail files
  8.  
  9. # COPYRIGHT:
  10. #
  11. #    Copyright © 1993 by David C. Black
  12. #    All rights reserved.
  13. #
  14. #    Redistribution and use in source and binary forms are permitted
  15. #    provided that the above copyright notice and this paragraph are
  16. #    duplicated in all such forms and that any documentation,
  17. #    advertising materials, and other materials related to such
  18. #    distribution and use acknowledge that the software was developed
  19. #    by David C. Black.
  20. #
  21. #    THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
  22. #    IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  23. #    WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  24. #
  25. ################################################################################
  26.  
  27. # Mail reading mode
  28. proc setMailMode {} {
  29.     changeMode "Text"
  30.     uplevel #0 {
  31.         set elecLBrace 0
  32.         set elecRBrace 0
  33.         set electricSemi 0
  34.         set wordWrap 1
  35.         set funcTitle "Subj"
  36.         set funcExpr  {^Subject: *([-A-Z:0-9_a-z,.#$%*@=+&|';?~`     ]*)}
  37.         set funcPar 1
  38.         set sortedIsDefault 0
  39.     }
  40. }
  41.  
  42.